home *** CD-ROM | disk | FTP | other *** search
/ Ya Dunno Dick! / Ya Dunno Dick (1997)(VCA Interactive)[PC-Mac].iso / mac / dick / SAFE_SEX.INF < prev    next >
Text File  |  1997-08-12  |  4KB  |  131 lines
  1. DefineVariables
  2. ;;******************************************************
  3. ;; Install of You Don't Know Dick! software for windows
  4. ;;******************************************************
  5.  
  6.   
  7.   Text    [CompanyName] := VCA Interactive
  8.   Text    [ProductName] := You Don't Know Dick!
  9.   Text    [ProductName1] := You Don't Know Dick! for windows 3.11
  10.   Text    [ProductName2] := You Don't Know Dick! for windows 95/NT
  11.   Text    [ProductName3] := Install QuickTime 2.1.2 16 bits
  12.   Text    [ProductName4] := Install QuickTime 2.1.2 32 bits
  13.   Text      [TopLine]    := " INSTALLING [ProductName]  "
  14.  
  15.   Text      [ExpressSetupDescription]    := Install [ProductName]
  16.   
  17.   Text    [LogoBitMap]  := VCA.BMP    
  18.   Text    [ReadFile]    := VCAREAD.WRI             
  19.   Text    [ReadCmdLine] := write.exe
  20.   Text    [ReadPath]
  21.   Text    [IconFile]    := VCA.ICO
  22.   Text    [IconPath]     
  23.   Text    [ProgFile1]    := 16.exe
  24.   Text    [ProgPath1]
  25.   Text    [ProgFile2]    := 32.exe
  26.   Text    [ProgPath2]
  27.   Text    [ProgFile3]   := QT16.EXE
  28.   Text    [ProgPath3]
  29.   Text    [ProgFile4]   := QT32.EXE
  30.   Text    [ProgPath4]
  31.  
  32. EndDefineVariables
  33. Procedure DDENonFatalErrorTrap
  34.  
  35.  
  36. ;; Purpose of DDENonFatalErrorTrap:
  37. ;; If a procedure with this name is present in the script and a non-fatal
  38. ;; Program Manager DDE error occurs, then this procedure will be executed.
  39. ;; 
  40. ;; Possible Text Error Codes Are:
  41. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  42. ;;      ddeInitiate failed
  43. ;;      pmAddItem failed
  44. ;;      pmClose failed
  45. ;;      pmCreateGroup failed
  46. ;;
  47. ;; To trap a DDENonFatalError and respond to it, use the following code
  48. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  49. ;; If [Number1] > 0 
  50. ;;    Dialog
  51. ;;      NonFatal error in AddItem occurred
  52. ;;      Error Text : DDENonFatalError
  53. ;;    EndDialog
  54. EndProcedure
  55.  
  56.  
  57.  
  58. ;; Setup logo and screen
  59. SetDefaultBitmap off
  60. LoadBitMap 1 [LogoBitMap]
  61. ShowBitMap 1 @xy(420,320)
  62. SetBackgroundColor 0 0 255 0 0 64 TopToBottom
  63. ShowWindow Maximized
  64.  
  65.  
  66. Dialog
  67.   
  68. Installation of "[ProductName]" is completely non-invasive. 
  69. A new icon and/or program group, "[CompanyName]", will be 
  70. created in your program manager.
  71.  
  72. Please press "OK" to proceed with "[ProductName]" installation.
  73.  
  74. EndDialog
  75.  
  76. Dialog WhiteOnBlue
  77.  
  78. **********************WARNING**********************
  79.  
  80. QuickTime ver. 1.0 and ver. 2.1.2 are incompatible.
  81. For your convenience you may install or un-install 
  82. QuickTime ver. 2.1.2 from the "QuickTime for Windows" Program Group.
  83.  
  84. Please press "OK" to proceed with "[ProductName]" installation.
  85.  
  86. EndDialog
  87. ;;**************************************************
  88. ;;Find the files for the program and icons
  89. ;;**************************************************
  90. [IconPath] := FullPathTo [IconFile] Origin=[InstallFromDrive]:\PC Quietly
  91. [ReadPath]  := FullPathTo [ReadFile] Origin=[InstallFromDrive]:\PC Quietly
  92. [ProgPath1]  := FullPathTo [ProgFile1] Origin=[InstallFromDrive]:\PC Quietly
  93. [ProgPath2]  := FullPathTo [ProgFile2] Origin=[InstallFromDrive]:\PC Quietly
  94. [ProgPath3]  := FullPathTo [ProgFile3] Origin=[InstallFromDrive]:\PC Quietly
  95. [ProgPath4]  := FullPathTo [ProgFile4] Origin=[InstallFromDrive]:\PC Quietly
  96.  
  97. ;;**************************************************
  98. ;; Create the windows program group.
  99. ;;**************************************************
  100. ProgramManagerDDe
  101.   CreateGroup([CompanyName])
  102.   ReplaceItem([CompanyName])
  103.   DeleteItem([ProductName1])
  104.   AddItem([ProgPath1],[ProductName1],[IconPath])
  105.   DeleteItem([ProductName2])  
  106.   AddItem([ProgPath2],[ProductName2],[IconPath])
  107.   DeleteItem([ProductName3])  
  108.   AddItem([ProgPath3],[ProductName3])
  109.   DeleteItem([ProductName4])  
  110.   AddItem([ProgPath4],[ProductName4])
  111.   AddItem([ReadPath],[ReadFile])
  112. EndProgramManagerDDE
  113.  
  114.  
  115.  
  116.  
  117. ;; Exit dialog box and messages
  118. Dialog
  119.   [ProductName] installation is complete.
  120.   Enjoy!
  121. EndDialog
  122.  
  123.  Dialog PressAKey WhiteOnBrown
  124.  
  125.     Thanks again and best wishes.  You'll find new
  126.     information in file VCAREAD.WRI
  127.  
  128.   EndDialog
  129.  
  130. EndScript
  131.